home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / RSB10326.MRG < prev    next >
Text File  |  1987-03-26  |  7KB  |  174 lines
  1. * Merge this against rbbssub1.bas  Date 3-15-1987  Size 82688 bytes
  2. * ------------[ Created 03-23-1987 17:47:20 ]------------
  3. * REPLACING old line(s) by new
  4. 118 INPUT #2, TURN.PRINTER.OFF,_    ' Turn printer off after each recycle
  5.               DIRECTORY.PATH$, _    ' Where dir files are stored
  6.               MIN.SEC.TO.VIEW, _
  7.               LIMIT.SEARCH.TO.FMS, _
  8.               DEFAULT.CATEGORY.CODE$, _
  9.               DIR.CATEGORY.FILE$, _
  10.               NEW.FILES.CHECK, _
  11.               MAX.DESC.LEN, _
  12.               SHOW.SECTION, _
  13.               COMMANDS.IN.PROMPT, _
  14.               NEWUSER.SETS.DEFAULTS, _
  15.               HELP.PATH$, _
  16.               HELP.EXTENSION$, _
  17.               MAIN.COMMANDS$, _
  18.               FILE.COMMANDS$, _
  19.               UTIL.COMMANDS$, _
  20.               GLOBAL.COMMANDS$, _
  21.               SYSOP.COMMANDS$
  22.       ALL.OPTS$ = MAIN.COMMANDS$ + FILE.COMMANDS$ + UTIL.COMMANDS$ + _
  23.                   GLOBAL.COMMANDS$ + SYSOP.COMMANDS$
  24.       HELP.EXTENSION$ = "." + HELP.EXTENSION$
  25.       BEG.MAIN = 1
  26.       BEG.FILE = LEN(MAIN.COMMANDS$) + BEG.MAIN
  27.       BEG.UTIL = LEN(FILE.COMMANDS$) + BEG.FILE
  28.       HELP$(3) = HELP.PATH$ + HELP$(3)
  29.       HELP$(4) = HELP.PATH$ + HELP$(4)
  30.       HELP$(7) = HELP.PATH$ + HELP$(7)
  31.       HELP$(9) = HELP.PATH$ + HELP$(9)
  32. '
  33. ' *****************************************************************************
  34. ' *  ESTABLISH COMMUNICATION PORT REGISTERS AND COMMANDS                      *
  35. ' *  GET DOS SUB-DIRECTORY RBBS-PC OPTIONS                                    *
  36. ' *****************************************************************************
  37. '
  38.     INPUT #2, UPLOAD.PATH$, _              ' Where upl dir goes
  39.               FMS.DIRECTORY$, _            ' Shared dir in FMS
  40.               ANS.MENU$, _
  41.               REQUIRED.QUESTIONNAIRE$,_
  42.               REMEMBER.NEW.USERS,_
  43.               SURVIVE.NOUSER.ROOM,_
  44.               PROMPT.HASH$,_
  45.               START.HASH,_
  46.               LEN.HASH,_
  47.               PROMPT.INDIV$,_
  48.               START.INDIV,_
  49.               LEN.INDIV
  50.     INPUT #2, BYPASS.MSGS, _
  51.               MUSIC, _
  52.               RESTRICT.BY.DATE, _
  53.               DAYS.TO.WARN, _
  54.               DAYS.IN.SUBSCRIPTION.PERIOD, _
  55.               CALLBACK.VERIFICATION, _
  56.               RESTRICT.VALID.CMDS, _
  57.               NEW.USER.DEFAULT.MODE, _
  58.               NEW.USER.LINE.FEEDS, _
  59.               NEW.USER.NULLS, _
  60.               NEW.USER.BELL, _
  61.               NEW.USER.CASE, _
  62.               NEW.USER.MARGINS, _
  63.               WRAP.CALLERS.FILE$, _
  64.               REDIRECT.IO.METHOD, _
  65.               GO.TO.SHELL, _
  66.               HALT.ON.ERROR, _
  67.               NEW.PUBLIC.MSGS.SECURITY, _
  68.               NEW.PRIVATE.MSGS.SECURITY, _
  69.               SECURITY.NEEDED.TO.CHANGE.MSGS, _
  70.               SL.CATEGORIZE.UPLOADS, _
  71.               BAUDOT, _
  72.               TIME.TO.DROP.TO.DOS, _
  73.               EXPIRED.SECURITY, _
  74.               DTR.DROP.DELAY, _
  75.               ASK.IDENTITY, _
  76.               USE.EXTERNAL.XMODEM, _
  77.               BUFFER.SIZE, _
  78.               MLCOM, _
  79. * ------[ first line different ]------
  80.               SHOOT.YOURSELF, _                                      ' TF032001
  81.               F7.MESSAGE$, _
  82.               NEW.USER.DEFAULT.PROTOCOL$, _
  83.               NEW.USER.GRAPHICS$, _
  84.               NET.MAIL$, _
  85.               MASTER.DIRECTORY.NAME$, _
  86.               PROTOCOL.PATH$, _
  87.               UPCAT.HELP$, _
  88.               ALWAYS.STREW.TO$, _
  89.               DUMMY$
  90.     INPUT #2, DF,_
  91.               MODEM.INIT.WAIT.TIME, _
  92.               MODEM.COMMAND.DELAY.TIME, _
  93.               TURBO.RBBS, _
  94.               SUBDIR.COUNT,_
  95.               DF,_
  96.               UPLOAD.TO.SUBDIR,_
  97.               DF,_
  98.               UPLOAD.SUBDIR$,_
  99.               RESTRICT.BAUD,_
  100.               USE.COLOR,_
  101.               DISKFULL.GO.OFFLINE,_
  102.               EXTENDED.LOGGING,_
  103.               MODEM.RESET.COMMAND$,_
  104.               MODEM.COUNT.RINGS.COMMAND$,_
  105.               MODEM.ANSWER.COMMAND$,_
  106.               MODEM.GO.OFFHOOK.COMMAND$,_
  107.               DISK.FOR.DOS$, _
  108.               DUMB.MODEM, _
  109.               COMMENTS.AS.MESSAGES, _
  110.               LSB,_
  111.               MSB,_
  112.               LINE.CONTROL.REGISTER,_
  113.               MODEM.CONTROL.REGISTER,_
  114.               LINE.STATUS.REGISTER,_
  115.               MODEM.STATUS.REGISTER
  116.        IF SUBROUTINE.PARAMETER = -62 THEN _
  117.           EXIT SUB
  118.        REQUIRED.QUESTIONNAIRE$ = REQUIRED.QUESTIONNAIRE$ + ".DEF"
  119. '
  120. ' *****************************************************************************
  121. ' *  ESTABLISH RBBS-PC'S DOS SUBDIRECTORIES USAGE                             *
  122. ' *****************************************************************************
  123. '
  124.     IF FMS.DIRECTORY$ <> "" THEN _
  125.        FMS.DIRECTORY$ = DIRECTORY.PATH$ + _
  126.                         FMS.DIRECTORY$ + _
  127.                         "." + _
  128.                         DIRECTORY.EXTENTION$
  129.     UPCAT.HELP$ = HELP.PATH$ + UPCAT.HELP$ + HELP.EXTENSION$
  130.     IF SUBDIR.COUNT<1 THEN _
  131.        GOTO 123
  132.     FOR SUBDIR.INDEX = 1 TO SUBDIR.COUNT
  133.         INPUT #2,SUBDIR$
  134.         IF RIGHT$(SUBDIR$,1) <> "\" THEN _
  135.           SUBDIR$(SUBDIR.INDEX) = SUBDIR$ + "\" _
  136.         ELSE SUBDIR$(SUBDIR.INDEX) = SUBDIR$
  137.     NEXT
  138.     GOTO 125
  139. '
  140. ' *****************************************************************************
  141. ' *  SETUP DOWNLOAD DRIVES WITH NO SUBDIRECTORY SUPPORT                       *
  142. ' *****************************************************************************
  143. '
  144. * REPLACING old line(s) by new
  145. 325 IF EC = 57 THEN _
  146.        LINE.STATUS = INP(LINE.STATUS.REGISTER) : _
  147. * ------[ first line different ]------
  148.        EC = 0                                                        ' TF032401
  149.     IF SUBROUTINE.PARAMETER = 5 THEN _
  150.        EXIT SUB
  151.     CALL FINDTIME (TI!)
  152.     IF TI! > CONNECT.DELAY! THEN _
  153.        CALL UPDTCALR ("Connect timeout",1) : _
  154.        SUBROUTINE.PARAMETER = 4 : _
  155.        EXIT SUB
  156.     IF DUMB.MODEM THEN _
  157.        BAUD.TEST = VAL(MODEM.INIT.BAUD$) : _
  158.        GOTO 326
  159.     IF INSTR(MODEM.RESPONSE$,"CONNECT") THEN _
  160.        BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"CONNECT") + 8,4)) : _
  161.        GOTO 326
  162.     IF INSTR(MODEM.RESPONSE$,"ONLINE") THEN _
  163.        BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"ONLINE") + 7,4)) : _
  164.        GOTO 326
  165.     GOTO 324
  166. * REPLACING old line(s) by new
  167. 1437 IF LOCAL.USER THEN _
  168.         GOTO 1450
  169. * ------[ first line different ]------
  170.      IF UPPER.CASE AND GR <> 2 THEN _                                ' TF032501
  171.         CALL ALLCAPS (A$)
  172.      IF INP(MODEM.STATUS.REGISTER) > 127 THEN _
  173.         PRINT #3,A$;
  174.